home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group97b.txt / 000070_icon-group-sender _Thu Sep 18 08:14:52 1997.msg < prev    next >
Internet Message Format  |  2000-09-20  |  2KB
  1. Return-Path: <icon-group-sender>
  2. Received: from kingfisher.CS.Arizona.EDU (kingfisher.CS.Arizona.EDU [192.12.69.239])
  3.     by cheltenham.cs.arizona.edu (8.8.7/8.8.7) with SMTP id IAA25545
  4.     for <icon-group-addresses@cheltenham.CS.Arizona.EDU>; Thu, 18 Sep 1997 08:14:51 -0700 (MST)
  5. Received: by kingfisher.CS.Arizona.EDU (5.65v4.0/1.1.8.2/08Nov94-0446PM)
  6.     id AA05089; Thu, 18 Sep 1997 08:14:50 -0700
  7. Date: Tue, 16 Sep 1997 23:11:15 GMT
  8. From: ia@stryx.demon.co.uk (Iain Alexander)
  9. Reply-To: ia@stryx.demon.co.uk
  10. Message-Id: <25954@stryx.demon.co.uk>
  11. To: icon-group@cs.arizona.edu
  12. Subject: Re: Problem with Program
  13. X-Mailer: PCElm 1.10
  14. Lines: 45
  15. Errors-To: icon-group-errors@cs.arizona.edu
  16. Status: RO
  17.  
  18. In message <Stuart.Robinson-1609972256580001@asianstmg-221.anu.edu.au> Stuart.Robinson@anu.edu.au (Stuart Robinson) writes:
  19. > 
  20. > I just wrote up a little program to check each line of text for the number
  21. > of times the string "#PL" appears.  I want the program to put the line in
  22. > list_1 if the string shows up once, in list_2 if the string shows up
  23. > twice, in list_3 if the string show up three times, and in list_other if
  24. > it fails to show up at all or shows up more than three times.  The problem
  25. > is, it doesn't work.  What gives?  Thanks in advance.
  26. > 
  27. > ==========
  28. > 
  29. > #16 Sept 1997
  30. > #program written to print all clauses in which plurality is multiply marked
  31. > 
  32. > procedure main()
  33. > 
  34. > list_1 := []
  35. > list_2 := []
  36. > list_3 := []
  37. > otherlist_other := []
  38. > 
  39. > chars := &letters++-#7
  40. > count := 0
  41. >  
  42. > while line := read() do    
  43. >    {
  44.  
  45. try
  46.      count:= 0
  47.  
  48. >    line ?
  49. >       {           
  50. >       while tab(upto(chars)) do
  51. >          {
  52. >          word := tab(many(chars))
  53. >          word ?
  54. >             {
  55. >             if find("#PL") then count +:= 1
  56. >             {
  57. >          }
  58. >       }
  59. [etc. snipped]
  60. -- 
  61. Iain Alexander               PGP 1024-bit key id B501A0AD
  62. ia@stryx.demon.co.uk   I.Alexander@bsn0106.wins.icl.co.uk
  63.